home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / bitcat / bview.frm < prev    next >
Text File  |  1995-05-08  |  5KB  |  152 lines

  1. VERSION 2.00
  2. Begin Form BVIEW 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Bitmap Catalog - Written By: Sean Bishop"
  6.    ClientHeight    =   5385
  7.    ClientLeft      =   1155
  8.    ClientTop       =   1530
  9.    ClientWidth     =   7935
  10.    Height          =   6075
  11.    Icon            =   BVIEW.FRX:0000
  12.    Left            =   1095
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   359
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   529
  19.    Top             =   900
  20.    Width           =   8055
  21.    Begin PictureBox Picture2 
  22.       AutoRedraw      =   -1  'True
  23.       AutoSize        =   -1  'True
  24.       Height          =   735
  25.       Left            =   3480
  26.       ScaleHeight     =   47
  27.       ScaleMode       =   3  'Pixel
  28.       ScaleWidth      =   55
  29.       TabIndex        =   1
  30.       Top             =   5520
  31.       Width           =   855
  32.    End
  33.    Begin PictureBox BPIC 
  34.       Height          =   135
  35.       Left            =   2160
  36.       ScaleHeight     =   105
  37.       ScaleWidth      =   345
  38.       TabIndex        =   4
  39.       Top             =   5520
  40.       Width           =   375
  41.    End
  42.    Begin FileListBox File1 
  43.       Height          =   615
  44.       Left            =   960
  45.       Pattern         =   "*.bmp;*.rle"
  46.       TabIndex        =   2
  47.       Top             =   5520
  48.       Visible         =   0   'False
  49.       Width           =   855
  50.    End
  51.    Begin Timer Timer1 
  52.       Interval        =   1000
  53.       Left            =   4815
  54.       Top             =   5475
  55.    End
  56.    Begin VScrollBar VScroll1 
  57.       Height          =   5385
  58.       LargeChange     =   50
  59.       Left            =   7680
  60.       Max             =   716
  61.       SmallChange     =   5
  62.       TabIndex        =   3
  63.       Top             =   0
  64.       Width           =   255
  65.    End
  66.    Begin PictureBox Picture1 
  67.       AutoRedraw      =   -1  'True
  68.       FontBold        =   0   'False
  69.       FontItalic      =   0   'False
  70.       FontName        =   "MS Sans Serif"
  71.       FontSize        =   8.25
  72.       FontStrikethru  =   0   'False
  73.       FontUnderline   =   0   'False
  74.       Height          =   16155
  75.       Left            =   0
  76.       ScaleHeight     =   1075
  77.       ScaleMode       =   3  'Pixel
  78.       ScaleWidth      =   511
  79.       TabIndex        =   0
  80.       Top             =   0
  81.       Width           =   7695
  82.    End
  83.    Begin Menu OPT 
  84.       Caption         =   "&Options"
  85.       Begin Menu CDIR 
  86.          Caption         =   "&Change Dir..."
  87.       End
  88.       Begin Menu ABT 
  89.          Caption         =   "&About"
  90.       End
  91.       Begin Menu EXT 
  92.          Caption         =   "&Exit"
  93.       End
  94.    End
  95. End
  96. 'Declare the StretchBlt GDI routine to resize the bitmaps
  97. Declare Function StretchBlt% Lib "gdi" (ByVal destDC%, ByVal X%, ByVal Y%, ByVal w%, ByVal H%, ByVal srcDC%, ByVal xSrc%, ByVal ySrc%, ByVal wSrc%, ByVal hSrc%, ByVal Rop&)
  98. Const SRCCOPY = &HCC0020
  99.  
  100. Sub ABT_Click ()
  101. AB.Show 1
  102. End Sub
  103.  
  104. Sub CDIR_Click ()
  105. Browse.Show 1
  106. If CNC = 1 Then CNC = 0: Exit Sub ' If cancel was selected then exit
  107. File1.Path = Browse.Dir1.Path
  108. End Sub
  109.  
  110. Sub EXT_Click ()
  111. End
  112. End Sub
  113.  
  114. Sub File1_PathChange ()
  115. 'This is the routine to load and display the graphics
  116. Screen.MousePointer = 11 'Change mousepointer to hourglass
  117. Picture1.Picture = BPIC.Picture 'Clear Picture Box
  118. LC = File1.ListCount ' Get number of files to load
  119. If LC = 0 Then Screen.MousePointer = 0: Exit Sub' If no files in list then exit
  120. LC = LC - 1
  121. IX% = -50
  122. For T = 0 To LC
  123. IX% = IX% + 51: If IX% > 500 Then IY% = IY% + 61: IX% = 1 'This increments the display to show all pictures
  124. CD$ = FN$ + File1.List(T) ' FN$ is directory - This gets the filename to load
  125. Picture2.Picture = LoadPicture(CD$) ' This loads the picture into the temp picture box for resizing
  126. Z% = StretchBlt(Picture1.hdc, IX%, IY%, 50, 50, Picture2.hdc, 0, 0, CInt(Picture2.Width - 2), CInt(Picture2.Height - 2), SRCCOPY) ' This resizes and places the graphic in the main display area
  127. F$ = Left$(File1.List(T), Len(File1.List(T)) - 4)
  128. F$ = " " + F$
  129. Picture1.CurrentX = IX%          ' This sets the current horizontal text position
  130. Picture1.CurrentY = IY% + 49     ' This sets the current horizontal text position
  131. Picture1.Print F$                ' This prints the filename under the picture
  132. Next T
  133. Picture1.Refresh ' Update display
  134. Screen.MousePointer = 0 ' Change mouse to normal arrow
  135. End Sub
  136.  
  137. Sub Form_Load ()
  138. 'Center form on screen
  139. BView.Left = (Screen.Width / 2) - (BView.Width / 2)
  140. BView.Top = (Screen.Height / 2) - (BView.Height / 2)
  141. End Sub
  142.  
  143. Sub Timer1_Timer ()
  144. Timer1.Enabled = 0 ' This disables timer, once the program is loaded and the first set loaded it is not needed!
  145. File1_PathChange ' Start picture process
  146. End Sub
  147.  
  148. Sub VScroll1_Change ()
  149. Picture1.Top = 0 - VScroll1.Value
  150. End Sub
  151.  
  152.